N            equ    99



             org  $1000
start        movea.l #data,a0
             move.b (a0),d0
             move.w #N,d1      ; loop counter
x1           add.l  #1,d0
             move.b d0,(a0)
             dbra   d1,x1
             nop





              org  $10a0
data          ds.b  1




